ARexx (41/65)

From:Alfonso Ranieri
Date:23 May 2001 at 07:58:41
Subject:Re: Timer device

ronphil@pld.com wrote:

> Could anybody recommend a library or anything else that operates a
> timer.device

/**/

call addlib('rmh.library',0,-30)
tim=CreateTimer()
ts=TimerSignal(tim)
ctrl_c=2**12
sig=or(ctrl_c,ts)

call StartTimer(tim,2,0) /* second, microseconds */
recv=wait(sig)

if and(recv,ctrl_c)>0 then do
say "broken"
exit
end

if and(recv,ts)>0 then say "timeout"

Ciao. Alfonso.

ARexx mailing list - No flames, no overquoting, no crossposting.
Unsub: Blank mail to mailto:arexx-unsubscribe@yahoogroups.com

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/